home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / LINES.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.7 KB  |  57 lines
  1. 10  ' walking lines program - from BYTE magazine
  2. 20  ' converted to IBM by Grant Irani - Fallston, MD
  3. 30  ' additional conversion by Will Fastie
  4. 40  ' last edit:  22 Dec 81
  5. 50  DEFINT A-Z
  6. 60  GOSUB 470
  7. 70  RANDOMIZE VAL(RIGHT$(TIME$,2))
  8. 80  CLS
  9. 90  BACKTINT=0:PALETTE=0
  10. 100  KEY (1) ON: ON KEY (1) GOSUB 380
  11. 110  KEY (2) ON: ON KEY (2) GOSUB 410
  12. 120  SCREEN 1,0
  13. 130  KEY (10) ON: ON KEY (10) GOSUB 440
  14. 140  COLOR BACKTINT,PALETTE
  15. 150  DIM LINES(150,4)
  16. 160  DEF FNRAND(LIMIT)=INT(RND(1)*LIMIT)+1
  17. 170  X1=FNRAND(320)-1:Y1=FNRAND(200)-1:DX1=FNRAND(11)-6:DY1=FNRAND(11)-6
  18. 180  X2=FNRAND(320)-1:Y2=FNRAND(200)-1:DX2=FNRAND(11)-6:DY2=FNRAND(11)-6
  19. 190  TINT=1
  20. 200  IX=0 'index into lines
  21. 210  CNT=0 ' number of lines
  22. 220  CHGCNT=FNRAND(250)
  23. 230  LINE (X1,Y1)-(X2,Y2),TINT
  24. 240  IX=(IX+1)MOD 150
  25. 250  IF CNT=150 THEN LINE (LINES(IX,0),LINES(IX,1))-(LINES(IX,2),LINES(IX,3)),BACKGRND
  26. 260  LINES(IX,0)=X1:LINES(IX,1)=Y1:LINES(IX,2)=X2:LINES(IX,3)=Y2
  27. 270  IF CNT<150 THEN CNT=CNT+1
  28. 280  CHGCNT=CHGCNT-1
  29. 290  X1=X1+DX1:IF X1<0 OR X1>319 THEN DX1=-DX1:X1=X1+DX1
  30. 300  Y1=Y1+DY1:IF Y1<0 OR Y1>199 THEN DY1=-DY1:Y1=Y1+DY1
  31. 310  X2=X2+DX2:IF X2<0 OR X2>319 THEN DX2=-DX2:X2=X2+DX2
  32. 320  Y2=Y2+DY2:IF Y2<0 OR Y2>199 THEN DY2=-DY2:Y2=Y2+DY2
  33. 330  IF CHGCNT>0 GOTO 230
  34. 340  ' X1=FNRAND(320)-1:Y1=FNRAND(200)-1:X2=FNRAND(320)-1:Y2=FNRAND(200)-1
  35. 350  DX1=FNRAND(11)-6:DY1=FNRAND(11)-6:DX2=FNRAND(11)-6:DY2=FNRAND(11)-6
  36. 360  TINT=((TINT+1)MOD 3)+1
  37. 370  GOTO 220
  38. 380  BACKTINT=(BACKTINT+1)MOD 16
  39. 390  COLOR BACKTINT,PALETTE
  40. 400  RETURN
  41. 410  PALETTE=PALETTE+1
  42. 420  COLOR BACKTINT,PALETTE
  43. 430  RETURN
  44. 440  ' restore monochrome display
  45. 450  GOSUB 530
  46. 460  END
  47. 470  REM DISPC - Simple program to setup Color/Graphics Display
  48. 480  REM       - from IBM's "C" program on Dealer Demo
  49. 490  KEY OFF: CLS
  50. 510  WIDTH  40 :SCREEN 1: SCREEN 0: LOCATE ,,1,6,7
  51. 520  RETURN
  52. 530  REM DISPM - Simple program to setup Monochrome Display
  53. 540  REM       - from IBM's "B" program on Dealer Demo
  54. 550  KEY OFF: CLS
  55. 570  WIDTH  80: LOCATE ,,1,12,13: SCREEN 0,0,0
  56. 580  RETURN
  57.